(Fcopy_keymap): After copying a sub-char-table, do store the copy.

diff --git a/src/keymap.c b/src/keymap.c
index 32c4afb322db91ff14478a46ab7adbc4476a09d0..ef7e90df53abdf799b8ffc1c678534c112cf8a99 100644 (file)
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -712,6 +712,8 @@ is not copied.")
            = (Lisp_Object *) alloca (3 * sizeof (Lisp_Object));
 
          elt = Fcopy_sequence (elt);
+         XCONS (tail)->car = elt;
+
          map_char_table (copy_keymap_1, Qnil, elt, elt, 0, indices);
        }
       else if (VECTORP (elt))